-- stack: in.2
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2812
-- card count: 4
-- first card id: 2935
-- list block id: 4449
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 4
-- free size: 10848 bytes
-- total size: 44032 bytes
-- stack block size: 4096 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01208000
-- modified by hypercard version: 0x01208000
-- opened by hypercard version: 0x01208000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack

  hide menubar

  go first card
  hide card field "Acknowledgments"
  hide card field "Revision history"
  hide card field "Terms of distribution"

  --  "This handler is used to put the current pathname of this stack
  --  into the copier button's script, so that wherever the button is
  --  pasted, it will always know where to find this stack, and the
  --  XCMD's that it needs, without the user having to tell it."
  --  - James L. Paul
  put long name of this stack into pathname
  delete first word of pathname
  set lockscreen to true
  push this card

  --  Put the current pathname of this stack into the scripts
  --  of the two resource-copying buttons on the fourth card,
  --  "Copy it to my stack"

  --  Button 1, "Copy GetDANames XCMD"
  go to card "Copy it to my stack"
  get script of card button "Copy GetDANames XCMD"
  delete word 2 of line 2 of it
  put "" && pathname after word 1 of line 2 of it
  set the script of card button "Copy GetDANames XCMD" to it

  --  Button 2, "Copy 'suitcase' icon"
  go to card "Copy it to my stack"
  get script of card button "Copy 'suitcase' icon"
  delete word 2 of line 2 of it
  put "" && pathname after word 1 of line 2 of it
  set the script of card button "Copy 'suitcase' icon" to it

  pop card
  set lockscreen to false

end openStack

------------------------------

on closeStack
  show menubar
end closeStack

------------------------------

-- Return the number of DAs in the Apple menu
function numberOfDAs
GetDANames
return the number of items in namesOfDAs
end numberOfDAs

------------------------------

-- Truncate a text string at 15 characters.  If the string is
-- longer than 15 characters, put an elipses ("…") after the string
function truncateAt15Chars theTextToTruncate
if length(theTextToTruncate) > 15 then
  return char 1 to 15 of theTextToTruncate & "…"
else
  return theTextToTruncate
end if
end truncateAt15Chars

------------------------------

-- Error messages used when copying the XCMD and Suitcase icon
-- to another stack (on card four of this stack)
on errorMessage errorNumber
  if errorNumber = 1 then
    answer "The wrong number of parameters were passed." with "OK"
  else if errorNumber = 2 then
    answer "The source file couldn't be opened." with "OK"
  else if errorNumber = 3 then
    answer "A new destination file couldn't be created." with "OK"
  else if errorNumber = 4 then
    answer "The resource to be copied wasn't found in the source." with "OK"
  end if
end errorMessage